GUÍA DE
USO
Al iniciar el programa, se
tendrá acceso al menú principal, donde se
podrá elegir el nivel en el que se quiere
jugar:
Para cada uno de los niveles se presentará un
menú como el siguiente:
A continuación se muestra una
pantalla con una sesión de juego donde ya
se han hecho dos intentos:
Nótese que se pueden agregar ceros a la izquierda
y eso no afectará el resultado, pues serán
eliminados automáticamente al presionar el botón
Multiplicar. Igualmente para el caso de la resta, los ceros a la
izquierda después del signo menos serán
automáticamente eliminados. No será posible
introducir varios signos menos
ni tampoco varias plecas para las respuestas en números
fraccionarios. El botón Terminar Juego sirve para
finalizar el juego antes de haber realizado los veinte
intentos.
Ahora se muestra un ejemplo de una pantalla de
resultados luego de haber finalizado un juego:
La ventana acerca del programa se muestra a
continuación:
Si la cantidad se escribe sin el cero al inicio y con
muchos ceros al final, el programa se encargará de agregar
el cero inicial y de quitar todos los ceros que sobrepasen a dos
cifras significativas, pues las respuestas se deberán dar
con dos cifras significativas y aproximando de acuerdo a lo que
haya en el tercer número después del punto. Esto
para que el estudiante aproxime su respuesta. Igualmente los
ceros a la izquierda serán eliminados, así como
también los ceros a la derecha después del
punto.
Para la resta, el programa no permitirá que las
respuestas tengan signos menos en una posición que no sea
al inicio de la respuesta, ni tampoco se permiten dos signos
menos. Si no se escribe ninguna respuesta, el programa
presentará el mensaje correspondiente indicando que debe
introducirse un valor. Unas
impresiones de pantalla para la resta se presentan a
continuación:
Para el efecto inicial de presentación, en el
cual van cambiando imágenes
consecutivamente, se usan objetos Timer, uno para cada imagen, que
tienen programados tiempos diferentes, por ejemplo el primer
Timer con la propiedad
Interval en 750, el segundo 1500, el tercero 2250 y así
sucesivamente. En cada uno de los Timer se programa qué
imagen va a aparecer y qué imagen va a desaparecer, y se
desactivan las otras imágenes que no se quiere que
aparezcan en un momento determinado.
CÓDIGO
DEL PROGRAMA
FORMULARIO
acercade1
Public Class acercade1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
'Oculta el formulario actual.
portada1.Show() 'muestra el
formulario "portada1".
End Sub
End Class
FORMULARIO
avanzado1
Public Class avanzado1
Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)
Dim Elipse
As New
Drawing2D.GraphicsPath()
Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7 para que n o se vea el
borde izquierdo del formulario. La coordenada "y" de la esquina
superior izquierda del rectángulo tiene el valor de 26,
con lo cual se logra que no aparezca la barra de título en
el formulario. El ancho del rectángulo es "Me.Width – 13"
para que no se vea el borde derecho del formulario. El alto del
rectángulo es "Me.Height – 31" para que no se vea la
línea inferior del borde.
Elipse.AddEllipse(Rectangulo)
Me.Region =
New Region(Elipse)
End Sub
Private Sub regresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu.Click, menu.Click
menu2.Show() 'Llama al
formulario "menu2".
Me.Hide()
'Oculta el formulario actual.
End Sub
Private Sub seleccionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seleccionar.Click
If RadioButtonsuma.Checked
= True Then
sumaavanzado1.Show() 'Llama
al formulario "sumaavanzado1".
Me.Hide()
'Oculta el formulario actual.
End If
If RadioButtonresta.Checked
= True Then
restaavanzado1.Show() 'Llama al formulario "restaavanzado1".
Me.Hide()
'Oculta el formulario actual.
End If
If
RadioButtonmultiplicacion.Checked = True Then
multiplicacionavanzado1.Show() 'Llama al formulario
"multiplicacionavanzado1".
Me.Hide()
'Oculta el formulario actual.
End If
If
RadioButtondivision.Checked = True Then
divisionavanzado1.Show() 'Llama al formulario "divisionavanzado1".
Me.Hide()
'Oculta el formulario actual.
End If
If (RadioButtonsuma.Checked
= False)
And (RadioButtonresta.Checked
= False)
And
(RadioButtonmultiplicacion.Checked = False) And (RadioButtondivision.Checked =
False) Then
MsgBox("Seleccione la
operación matemática
que desea realizar", MsgBoxStyle.Exclamation,
"Juego de Operaciones
Matemáticas para
Bachilleres")
End If
End Sub
End Class
FORMULARIO
básico1
Public Class basico1
Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)
Dim Elipse
As New
Drawing2D.GraphicsPath()
Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7 para que n o se vea el
borde izquierdo del formulario. La coordenada "y" de la esquina
superior izquierda del rectángulo tiene el valor de 26,
con lo cual se logra que no aparezca la barra de título en
el formulario. El ancho del rectángulo es "Me.Width – 13"
para que no se vea el borde derecho del formulario. El alto del
rectángulo es "Me.Height – 31" para que no se vea la
línea inferior del borde.
Elipse.AddEllipse(Rectangulo)
Me.Region =
New Region(Elipse)
End Sub
Private Sub seleccionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seleccionar.Click
If RadioButtonsuma.Checked
= True Then
sumabasico1.Show() 'Llama
al formulario "sumabasico1".
Me.Hide()
'Oculta el formulario actual.
End If
If RadioButtonresta.Checked
= True Then
restabasico1.Show() 'Llama
al formulario "restabasico1".
Me.Hide()
'Oculta el formulario actual.
End If
If
RadioButtonmultiplicacion.Checked = True Then
multiplicacionbasico1.Show() 'Llama al formulario
"multiplicacionbasico1".
Me.Hide()
'Oculta el formulario actual.
End If
If
RadioButtondivision.Checked = True Then
divisionbasico1.Show() 'Llama al formulario "divisionbasico1".
Me.Hide()
'Oculta el formulario actual.
End If
If (RadioButtonsuma.Checked
= False)
And (RadioButtonresta.Checked
= False)
And
(RadioButtonmultiplicacion.Checked = False) And (RadioButtondivision.Checked =
False) Then
MsgBox("Seleccione la
operación matemática que desea
realizar", MsgBoxStyle.Exclamation,
"Juego de Operaciones Matemáticas
para Bachilleres")
End If
End Sub
Private Sub regresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu.Click, menu.Click
menu2.Show() 'Llama al
formulario "menu2".
Me.Hide()
'Oculta el formulario actual.
End Sub
End Class
FORMULARIO
divisionavanzado1
Public Class divisionavanzado1
Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)
Dim Elipse
As New
Drawing2D.GraphicsPath()
Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7 para que n o se vea el
borde izquierdo del formulario. La coordenada "y" de la esquina
superior izquierda del rectángulo tiene el valor de 26,
con lo cual se logra que no aparezca la barra de título en
el formulario. El ancho del rectángulo es "Me.Width – 13"
para que no se vea el borde derecho del formulario. El alto del
rectángulo es "Me.Height – 31" para que no se vea la
línea inferior del borde.
Elipse.AddEllipse(Rectangulo)
Me.Region =
New Region(Elipse)
End Sub
'Las siguientes variables
deben ser públicas para que vayan almacenando valores y que
los pierdan hasta que explícitamente se programe un
cambio de
valores o cuando se cierre el formulario.
Public
respuestaaciertos As
Integer 'Variable que contabiliza el número de
aciertos.
Public
respuestadesaciertos As
Integer 'Variable que contabiliza el número de
desaciertos.
Private Sub
divisionavanzado1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Al cargar el formulario ya deben
aparecer números:
numero1.Text = obtenernumerorandom(1, 99) +
"/" + obtenernumerorandom(1,
99) 'Imprime un número random
entre 1 y 99 contatenado con "+" concatenado con un número
random entre 1 y 99, para obtener algo como "34/32", y eso se
imprime en el TextBox "numero1".
numero2.Text = obtenernumerorandom(1, 99) +
"/" + obtenernumerorandom(1,
99) 'Imprime un número random
entre 1 y 99 contatenado con "+" concatenado con un número
random entre 1 y 99, para obtener algo como "33/32", y eso se
imprime en el TextBox "numero2".
aciertos.Text = "0"
desaciertos.Text = "0"
End Sub
Private Sub menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu1.Click
Dim mensaje
As String
mensaje = MsgBox("Regresar
al menú cancelará su juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "Juego de Operaciones Básicas para
Bachilleres")
If mensaje = 6
Then
menu2.Show() 'Llama al
formulario "menu2".
Me.Close()
'Cierra el formulario actual.
Else
'No hace nada porque no se ha decidido
por parte del usuario regresar al menú.
End If
End Sub
Private Sub division1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles division1.Click
If respuesta.Text =
"" Then
'Si el usuario no ha escrito una
respuesta.
MsgBox("Escriba la
respuesta que considere correcta.",
MsgBoxStyle.Exclamation, "Juego de
Operaciones Matemáticas para
Bachilleres")
respuesta.Focus() 'Se ubica
el cursor en el cuadro de texto de
respuestas para que el usuario escriba su respuesta.
Else
'Encontrar el numerador y el denominador
del "numero1".
Dim longitudcadena1
As Integer = Len(numero1.Text)
'Variable para almacenar la longitud de la
cadena que hay en el Textbox "numero1".
Dim
caracterevaluado1 As
String 'Para
evaluar caracter por caracter con el Mid().
Dim posicionpleca1
As Integer 'Para determinar
el número de la posición en la que se encuentra la
pleca dentro de la cadena.
Dim numerador1
As String 'Almacena el
numerador del Textbox que se está evaluando.
Dim denominador1
As String 'Almacena el
denominador del Textbox que se está evaluando.
Dim banderapleca1
As Integer 'Bandera o
marcador que devolverá 1 si se encontró una pleca
en la cadena, y 0 en el caso que no se haya
encontrado.
For ciclo
As Integer = 1 To longitudcadena1 'Para evaluar caracter por caracter hasta encontrar una
"/".
caracterevaluado1 = Mid(numero1.Text, ciclo,
1)
If caracterevaluado1
= "/" Then
posicionpleca1 = ciclo
banderapleca1 = 1
End If
Next
If banderapleca1 = 1
Then 'En el
caso que se haya encontrado una pleca en la cadena, lo que indica
que el usuario introdujo un número
fraccionario.
numerador1 = Mid(numero1.Text, 1, posicionpleca1 –
1) 'El numerador será desde
el primer caracter hasta el que está antes de que se
digitara la pleca.
denominador1 = Mid(numero1.Text, posicionpleca1 + 1,
longitudcadena1 – posicionpleca1) 'El denominador será desde un caracter
después de la pleca, hasta el último caracter de la
cadena.
Else 'En el
caso que no se haya encontrado una pleca en la cadena, lo que
indica que el usiario introdujo un número entero. Debido a
que no se pueden meter puntos ni espacios ni caracteres
especiales debido a la programación del KeyPress, el no encontrar
una pleca garantiza que se introdujo un entero.
numerador1 = Mid(numero1.Text, 1,
longitudcadena1)
denominador1 = 1
End If
'Encontrar el numerador y el denominador
del "numero2".
Dim longitudcadena2
As Integer = Len(numero2.Text)
'Variable para almacenar la longitud de la
cadena que hay en el Textbox "numero2".
Dim
caracterevaluado2 As
String 'Para
evaluar caracter por caracter con el Mid().
Dim posicionpleca2
As Integer 'Para determinar
el número de la posición en la que se encuentra la
pleca dentro de la cadena.
Dim numerador2
As String 'Almacena el
numerador del Textbox que se está evaluando.
Dim denominador2
As String 'Almacena el
denominador del Textbox que se está evaluando.
Dim banderapleca2
As Integer 'Bandera o
marcador que devolverá 1 si se encontró una pleca
en la cadena, y 0 en el caso que no se haya
encontrado.
For ciclo
As Integer = 1 To longitudcadena2 'Para evaluar caracter por caracter hasta encontrar una
"/".
caracterevaluado2 = Mid(numero2.Text, ciclo,
1)
If caracterevaluado2
= "/" Then
posicionpleca2 = ciclo
banderapleca2 = 1
End If
Next
If banderapleca2 = 1
Then 'En el
caso que se haya encontrado una pleca en la cadena, lo que indica
que el usuario introdujo un número
fraccionario.
numerador2 = Mid(numero2.Text, 1, posicionpleca2 –
1) 'El numerador será desde
el primer caracter hasta el que está antes de que se
digitara la pleca.
denominador2 = Mid(numero2.Text, posicionpleca2 + 1,
longitudcadena2 – posicionpleca2) 'El denominador será desde un caracter
después de la pleca, hasta el último caracter de la
cadena.
Else 'En el
caso que no se haya encontrado una pleca en la cadena, lo que
indica que el usiario introdujo un número entero. Debido a
que no se pueden meter puntos ni espacios ni caracteres
especiales debido a la programación del KeyPress, el no
encontrar una pleca garantiza que se introdujo un
entero.
numerador2 = Mid(numero2.Text, 1,
longitudcadena2)
denominador2 = 1
End If
'Convertir los valores de
los TextBox a objetos "Fraccion", mediante la clase.
Dim fraccion_numero1
As New
Fraccion(numerador1, denominador1)
'Convertir los valores de los TextBox a
objetos "Fraccion", mediante la clase.
Dim fraccion_numero2
As New
Fraccion(numerador2, denominador2)
Dim
fraccion_respuesta As
Fraccion 'Variable que
almacenará la respuesta.
fraccion_respuesta = fraccion_numero1 /
fraccion_numero2
TextBoxoculto.Text = fraccion_respuesta.ToString
'La respuesta es de tipo "Fraccion" (la
clase creada) y se transforma a tipo "String" para poder
imprimirla en un TextBox.
'Condición para quitar el
denominador de 1.
If
Strings.Right(TextBoxoculto.Text, 2) = "/1" Then
'Si el número tiene como divisor
1.
TextBoxoculto.Text = Strings.Left(TextBoxoculto.Text,
Strings.Len(TextBoxoculto.Text) – 2) 'Con esto se quita el "/1", por ejemplo si fuera "34/1"
quedará solamente "34".
End If
While Mid(respuesta.Text,
1, 2) = "00" Or Mid(respuesta.Text, 1, 2) =
"01" Or
Mid(respuesta.Text, 1, 2) = "02" Or
Mid(respuesta.Text, 1, 2) = "03" Or
Mid(respuesta.Text, 1, 2) = "04" Or
Mid(respuesta.Text, 1, 2) = "05" Or
Mid(respuesta.Text, 1, 2) = "06" Or
Mid(respuesta.Text, 1, 2) = "07" Or
Mid(respuesta.Text, 1, 2) = "08" Or
Mid(respuesta.Text, 1, 2) = "09" 'Para que los ceros a
la izquierda se borren.
respuesta.Text = Mid(respuesta.Text, 2,
Len(respuesta.Text) – 1)
End While
Dim plecaubicacion
As Integer 'Para saber en
qué parte de la cadena se encuentra la pleca.
For ciclo
As Integer = 1 To Len(respuesta.Text)
caracterevaluado1 = Mid(respuesta.Text, ciclo, 1)
'Toma el caracter correspondiente,
dependiendo de la iteración en la que vaya el ciclo
For.
If caracterevaluado1
= "/" Then
plecaubicacion = ciclo
End If
Next
While Mid(respuesta.Text,
plecaubicacion + 1, 2) = "00"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "01"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "02"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "03"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "04"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "05"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "06"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "07"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "08"
Or Mid(respuesta.Text,
plecaubicacion + 1, 2) = "09"
'Para quitar los ceros del
denominador.
respuesta.Text = Mid(respuesta.Text, 1, plecaubicacion –
1) + "/" +
Mid(respuesta.Text, plecaubicacion + 2,
Len(respuesta.Text)) 'Para que si el
usuario escribe "433/0000432", cambiará a
"443/432".
End While
If (respuesta.Text =
TextBoxoculto.Text) Then
'Si la respuesta introducida por el usuario
es igual a la respuesta correcta.
Dim mensaje
As String
mensaje = MsgBox("¡Felicidades, su respuesta es
correcta!", MsgBoxStyle.OkOnly, "Juego de Operaciones Matemáticas para
Bachilleres")
If mensaje = 1
Then 'Si el
botón presionado es el "Ok" (que es el único que se
le va a presentar entonces ese se tiene que
presionar).
'Generación de números
aleatorios.
numero1.Text = obtenernumerorandom(1, 99) +
"/" + obtenernumerorandom(1,
99) 'Imprime un número random
entre 1 y 99 contatenado con "+" concatenado con un número
random entre 1 y 99, para obtener algo como "34/42", y eso se
imprime en el TextBox "numero1".
numero2.Text = obtenernumerorandom(1, 99) +
"/" + obtenernumerorandom(1,
99) 'Imprime un número random
entre 1 y 99 contatenado con "+" concatenado con un número
random entre 1 y 99, para obtener algo como "34/42", y eso se
imprime en el TextBox "numero2".
respuesta.Text = ""
'Para borrar la respuesta anterior y que el
usuario escriba una nueva respuesta.
respuesta.Focus() 'Para que
el cursor esté listo y que el usuario escriba su
próxima respuesta.
End If
respuestaaciertos += 1 'Suma un acierto.
aciertos.Text = respuestaaciertos 'Imprime el número de aciertos en el
TextBox.
If respuestaaciertos +
respuestadesaciertos = 20 Then
resultado1.aciertos1.Text = aciertos.Text
'El número de aciertos se manda a
imprimir al TextBox "aciertos1" que está en el formulario
"resultado1".
resultado1.desaciertos1.Text = desaciertos.Text
'El número de desaciertos se manda a
imprimir al TextBox "desaciertos1" que está en el
formulario "resultado1".
resultado1.notafinal1.Text = 10 / 20 *
Val(aciertos.Text)
resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.
End If
Else 'Si la
respuesta introducida por el usuario es diferente de la respuesta
correcta.
Dim mensaje
As String
mensaje = MsgBox("¡Incorrecto! La respuesta es: " +
TextBoxoculto.Text + ".", MsgBoxStyle.OkOnly,
"Juego de Operaciones Matemáticas
para Bachilleres")
If mensaje = 1
Then 'Si el
botón presionado es el "Ok" (que es el único que se
le va a presentar entonces ese se tiene que
presionar).
'Generación de números
aleatorios.
numero1.Text = obtenernumerorandom(1, 99) +
"/" + obtenernumerorandom(1,
99) 'Imprime un número random
entre 1 y 99 contatenado con "+" concatenado con un número
random entre 1 y 99, para obtener algo como "34/42", y eso se
imprime en el TextBox "numero1".
numero2.Text = obtenernumerorandom(1, 99) +
"/" + obtenernumerorandom(1,
99) 'Imprime un número random
entre 1 y 99 contatenado con "+" concatenado con un número
random entre 1 y 99, para obtener algo como "34/42", y eso se
imprime en el TextBox "numero2".
respuesta.Text = ""
'Para borrar la respuesta anterior y que el
usuario escriba una nueva respuesta.
respuesta.Focus() 'Para que
el cursor esté listo y que el usuario escriba su
próxima respuesta.
End If
respuestadesaciertos += 1 'Suma un desacierto.
desaciertos.Text = respuestadesaciertos
'Imprime el número de desaciertos en
el TextBox.
If respuestaaciertos +
respuestadesaciertos = 20 Then
resultado1.aciertos1.Text = aciertos.Text
'El número de aciertos se manda a
imprimir al TextBox "aciertos1" que está en el formulario
"resultado1".
resultado1.desaciertos1.Text = desaciertos.Text
'El número de desaciertos se manda a
imprimir al TextBox "desaciertos1" que está en el
formulario "resultado1".
resultado1.notafinal1.Text = 10 / 20 *
Val(aciertos.Text)
resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.
Me.Hide()
End If
End If
End If
End Sub
Private Sub terminar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles terminar1.Click
Dim mensaje
As String
mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "Juego de Operaciones Básicas para
Bachilleres")
If mensaje = 6
Then
resultado1.aciertos1.Text = aciertos.Text
'El número de aciertos se manda a
imprimir al TextBox "aciertos1" que está en el formulario
"resultado1".
resultado1.desaciertos1.Text = desaciertos.Text
'El número de desaciertos se manda a
imprimir al TextBox "desaciertos1" que está en el
formulario "resultado1".
resultado1.notafinal1.Text = 10 / (Val(aciertos.Text) +
Val(desaciertos.Text)) * Val(aciertos.Text) 'Determinar e imprimir la nota final.
resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.
End If
End Sub
Private Sub respuesta_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles
respuesta.KeyPress
Dim contadorplecas
As Integer
Dim longitudcadena
As Integer = Len(respuesta.Text)
'Variable para almacenar la longitud de la
cadena que hay en un Textbox.
Dim caracterevaluado
As String 'Para evaluar
caracter por caracter con el Mid().
For ciclo
As Integer = 1 To longitudcadena 'Para evaluar caracter por caracter hasta encontrar una
"/".
caracterevaluado = Mid(respuesta.Text, ciclo,
1)
If caracterevaluado
= "/" Then
contadorplecas = contadorplecas + 1
End If
Next
If (Asc(e.KeyChar) >=
47 And Asc(e.KeyChar)
<= 57) Or
Asc(e.KeyChar) = 8 Then
'Los únicos caracteres que se
permitirá introducir en el Textbox serán los
números del 0 al 9 (ASCII del 48 al
57); la pleca ("/"), que es el ASCII 47; el signo menos ("-"), y
el retroceso de espacio o backspace para borrar texto
introducido, que es el ASCII 8.
If (Asc(e.KeyChar) =
47) Then 'Si se presione la tecla de la pleca ("/").
If (contadorplecas >
0) Then 'Cuando se pretenda introducir una segunda
pleca.
e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.
End If
End If
Else
e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.
End If
End Sub
End Class
FORMULARIO
divisionbasico1
Imports System.Math
'Esto se pone porque será necesario
usar la función
Round(), y si no se pone esta línea no estará
disponible esa función, que servirá para programar
que se usen solamente dos dígitos significativos
(precisión) en las respuestas.
Public Class divisionbasico1
Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)
Dim Elipse
As New
Drawing2D.GraphicsPath()
Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7 para que n o se vea el
borde izquierdo del formulario. La coordenada "y" de la esquina
superior izquierda del rectángulo tiene el valor de 26,
con lo cual se logra que no aparezca la barra de título en
el formulario. El ancho del rectángulo es "Me.Width – 13"
para que no se vea el borde derecho del formulario. El alto del
rectángulo es "Me.Height – 31" para que no se vea la
línea inferior del borde.
Elipse.AddEllipse(Rectangulo)
Me.Region =
New Region(Elipse)
End Sub
'Las siguientes variables deben ser
públicas para que vayan almacenando valores y que los
pierdan hasta que explícitamente se programe un cambio de
valores o cuando se cierre el formulario.
Public
respuestaaciertos As
Integer 'Variable que contabiliza el número de
aciertos.
Public
respuestadesaciertos As
Integer 'Variable que contabiliza el número de
desaciertos.
Private Sub
divisionbasico1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Al cargar el formulario ya deben
aparecer números:
numero1.Text = obtenernumerorandom(1, 999)
'Imprime un número random entre 1 y
999 en el TextBox "numero1".
numero2.Text = obtenernumerorandom(1, 999)
'Imprime un número random entre 1 y
999 en el TextBox "numero2".
aciertos.Text = "0"
desaciertos.Text = "0"
End Sub
Private Sub menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu1.Click
Dim mensaje
As String
mensaje = MsgBox("Regresar
al menú cancelará su juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "Juego de Operaciones Básicas para
Bachilleres")
If mensaje = 6
Then
menu2.Show() 'Llama al
formulario "menu2".
Me.Close()
'Cierra el formulario actual.
Else
'No hace nada porque no se ha decidido
por parte del usuario regresar al menú.
End If
End Sub
Private Sub terminar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles terminar1.Click
Dim mensaje
As String
mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "Juego de Operaciones Básicas para
Bachilleres")
If mensaje = 6
Then
resultado1.aciertos1.Text = aciertos.Text
'El número de aciertos se manda a
imprimir al TextBox "aciertos1" que está en el formulario
"resultado1".
resultado1.desaciertos1.Text = desaciertos.Text
'El número de desaciertos se manda a
imprimir al TextBox "desaciertos1" que está en el
formulario "resultado1".
resultado1.notafinal1.Text = 10 / (Val(aciertos.Text) +
Val(desaciertos.Text)) * Val(aciertos.Text) 'Determinar e imprimir la nota final.
resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.
End If
End Sub
Private Sub division1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles division1.Click
If respuesta.Text =
"" Then
'Si el usuario no ha escrito una
respuesta.
MsgBox("Escriba la
respuesta que considere correcta.",
MsgBoxStyle.Exclamation, "Juego de
Operaciones Matemáticas para
Bachilleres")
respuesta.Focus() 'Se ubica
el cursor en el cuadro de texto de respuestas para que el usuario
escriba su respuesta.
Else
Dim
caracterevaluado1 As
String
Dim existepunto
As Boolean = False 'Valdrá 1 si
existe un punto en la respuesta y 0 si no existe.
Dim puntoubicacion
As Integer 'Para saber en
qué parte de la cadena se encuentra el punto
decimal.
For ciclo
As Integer = 1 To Len(respuesta.Text)
caracterevaluado1 = Mid(respuesta.Text, ciclo, 1)
'Toma el caracter correspondiente,
dependiendo de la iteración en la que vaya el ciclo
For.
If caracterevaluado1
= "." Then
puntoubicacion = ciclo
existepunto = True
End If
Next
If existepunto =
True Then 'Si existe un punto
decimal se hacen todas las siguientes evaluaciones.
respuesta.Text = Mid(respuesta.Text, 1, puntoubicacion +
2) 'Si se escribió
"343.043243" se transformará a "343.04". Cualquier valor
se deja con 2 decimales.
While Mid(respuesta.Text,
1, 2) = "00" Or Mid(respuesta.Text, 1, 2) =
"01" Or
Mid(respuesta.Text, 1, 2) = "02" Or
Mid(respuesta.Text, 1, 2) = "03" Or
Mid(respuesta.Text, 1, 2) = "04" Or
Mid(respuesta.Text, 1, 2) = "05" Or
Mid(respuesta.Text, 1, 2) = "06" Or
Mid(respuesta.Text, 1, 2) = "07" Or
Mid(respuesta.Text, 1, 2) = "08" Or
Mid(respuesta.Text, 1, 2) = "09" 'Para que los ceros a
la izquierda se borren, que solamente se permita un cero antes
del punto, si es que se va a escribir un cero.
respuesta.Text = Mid(respuesta.Text, 2,
Len(respuesta.Text) – 1)
End While
If Mid(respuesta.Text, 2,
3) = ".00" Then 'Si al final de la
respuesta se tiene "2.00", se convertiría en
"2".
respuesta.Text = Mid(respuesta.Text, 1, 1)
End If
If Len(respuesta.Text) =
3 And
Mid(respuesta.Text, 2, 2) = ".0" Then
'Si la respuesta es "8.0", se
convertiría en "8".
respuesta.Text = Mid(respuesta.Text, 1, 1)
End If
If Mid(respuesta.Text, 1,
1) = "." Then 'Si comienza la
respuesta con ".", concatenarle "0". Por ejemplo, ".34" lo
convertiría en "0.34"
respuesta.Text = "0"
+ respuesta.Text
End If
If Mid(respuesta.Text, 4,
1) = "0" Then 'Si la respuesta es
"1.3" y el usuario escribe "1.30", el sistema se lo
cambiaría a "1.3".
respuesta.Text = Mid(respuesta.Text, 1, 3)
End If
If Mid(respuesta.Text,
Len(respuesta.Text), 1) = "."
Then 'Si al
final de la respuesta hay un punto, por ejemplo "93." lo
convertiría en "93".
respuesta.Text = Mid(respuesta.Text, 1,
Len(respuesta.Text) – 1)
End If
End If
TextBoxoculto.Text = Round(Val(numero1.Text) /
Val(numero2.Text), 2) 'Se guarda en
el TextBox oculto la respuesta correcta. Se usan dos
dígitos significativos (precisión).
While Mid(respuesta.Text,
1, 2) = "00" Or Mid(respuesta.Text, 1, 2) =
"01" Or
Mid(respuesta.Text, 1, 2) = "02" Or
Mid(respuesta.Text, 1, 2) = "03" Or
Mid(respuesta.Text, 1, 2) = "04" Or
Mid(respuesta.Text, 1, 2) = "05" Or
Mid(respuesta.Text, 1, 2) = "06" Or
Mid(respuesta.Text, 1, 2) = "07" Or
Mid(respuesta.Text, 1, 2) = "08" Or
Mid(respuesta.Text, 1, 2) = "09" 'Para que los ceros a
la izquierda se borren.
respuesta.Text = Mid(respuesta.Text, 2,
Len(respuesta.Text) – 1)
 Página anterior | Volver al principio del trabajo | Página siguiente  |